home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 88xx / 8801a.d64 / smilie huepf (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  266 b   |  12 lines
  1. 10 POKE56,128:POKE55,0:CLR
  2. 20 SYS50000,8,"SMILIE"
  3. 30 SYS51000,0,2
  4. 40 V=53248:POKEV+32,0:POKEV+33,0:POKEV+39,15
  5. 50 POKEV+21,1:POKEV+1,125:POKEV+23,0:POKEV+29,0
  6. 60 PRINT"[155][147]                                        [146]"
  7. 70 FORX=0TO343
  8. 80 POKEV,XAND255:POKEV+16,X/256
  9. 90 FORL=1TO3:NEXTL
  10. 100 NEXTX
  11. 110 GOTO70
  12.